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BEGIN 


' 
MASALESELILI SSIS ICSE TT TTT TT Tere reece cece ricer c ccc er icici iit ici iti iiiiis 
' 


t# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 
'® ONLY IN ACCORDANCE W 


® 
® 
* 
® 
® 
IED 
ITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ‘ 
® 

i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD N ITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. : 
® 

® 

o 

® 

* 

® 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Ht Vag 
' 
33 FACILITY: FI1IACP Structure Level 2 
35 { ABSTRACT: 
37 i This module contains the routines for charging disk blocks 
$ against a particular quota file entry. 
9040 ENVIRONMENT : 
Bpeg i STARLET operating system, including privileged system services 
Ope 7 and internal exec routines. 
$048 ine 
$b 
G048 AUTHOR: Andrew C. Goldstein, CREATION DATE: 22-May-1979 20:51 
0050 i MODIFIED BY: 
005¢ i v03-012 CDS0004 Christian D. Saether 29-Aug-1984 
005 : Be prepared to find multiple headers when rebuilding 
Bnee ‘ the quota file fcb. Reread header for PRIMARY_FCB 
055 ! when rebuilding the quota fcb if it is not the quota 
Bees } file fcb. 
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CHARGEQ 1b-se -1984 56:13 VAX-11 Bliss-32 V4.0-742 Page 2. 
v0e e600 1228 08=198e $3:38: 09 DISKSVMSMASTER:LF1iX.SRCICHARGEQ.B32: 1° (1), 
; 8 0038 1! v03-011 CDS0003 Christian D. Saether 23-Aug-1984 
: 2 0966 ! } Check quota fcb for staleness and rebuild if necessary. 
; 61 061 1! v03-010 ACG0443 Andrew C. Goldstein, 21-Aug-1984 19:51 | 
3; § 066 1! Fix setup of REAL_Q_REC in file search so removal works 
: o 6b ! on a cache miss. 
: 65 065 1 V03-009 ACG0438 Andrew C. Goldstein, 19-Jul-1984 16:45 | 
: $8 Boee : Implement write access cache interlock 
: 68 0068 1! v03-008 ACG0430 Andrew C. Goldstein 31-May-1984 15:07 
: +4 54 ! Fix reference to quota cache value block in REL_QUOTA.LOCK 
: 71 0071 1: V03-007 ACG0429 Andrew C. Goldstein, | 21-May-1984 12:00 
; f BR 76 ’ Fix flow bug in ACG0428 
>; «2% 0074 1} V03-006 ACG0428 Andrew C. Goldstein, | 18-May-1984 14:29 
; a Bpe2 ! Re-read quota record if value block not valid 
: 77 0077 1! V03-005 ACG0408 Andrew C. Goldstein, | 23-Mar-1984 14:40 
: ze th : Add AST parameter so that impure storage is fully based 
: 80 0080 1 | V03-004 ACG0400 Andrew C. Goldstein, | 1-Mar-1984 21:09 
: 3 et } Implement cluster-wide quota cacheing 
: 83 0083 1 | v03-003 cps0002 Christian D. Saether 29-Dec-1983 
: Be Soe : Use L_NORM Linkage and BIND_COMMON macro. 
; 86 0086 1! v03-002 CDS0001 Christian D. Saether 6-Dec-1983 | 
: 4 sie : } Serialize quota checking operations using allocation lock. 
; 89 0089 1! v03-001 ACG0337 Andrew C. Goldstein, 16-May-1983 16:04 | 
: + it : Fix handling of quota cache counters 
: 9 0092 1! v02-006 ACG0229 Andrew C. Goldstein, 23-Dec-1981 21:45 | 
; ¢, Booz : Add counters for quota cache hits and misses 
: 95 0095 1 v02-005 ACG0167 Andrew C. Goldstein, | 16-Apr-1980 19:25 
; 8496 0096 1! Previous revision history moved to F11B.REV 
: 9 0097 1 !ee 
; 0098 1 
; 99 0099 1 
; 100 0100 1 LIBRARY | SYSSLIBRARY:L 18.132"; 
3; 101 0101 1 REQUIRE ‘SRC$:FCPDEF.B32'; 
3 106 1036 1 
; 10 109 1 FORWARD ROUTIN 
; 104 1094 1 CHARGE _ L_NORM NOVALUE, ! check and/or charge disk blocks 
; 105 1095 1 SEARCH QUOTA L=NORM, ' search for a quota file record | 
: 106 1096 1 WRITE Guo L-NORM NOVALUE, ! write back a quota record 
3 107 1097 1 SCAN GUO CACHE : L-NORM, ! search the quota cache | 
3; 108 1098 1 GET_GUOTA_LOCK : L-NORM NOVALUE, ! acquire lock on quota file entry | 
; 109 1099 1 REL_QUOTA_LOCK : L_NORM NOVALUE, ! release lock on quota file entry 
: 110 1100 1 CLEAN_QUO-CACHE : L-NORM NOVALUE, ! write modified cache entry 
z F93 1101 «1 ENTER_QUO_CACHE : L_NORM NOVALUE; ! make a new cache entry 
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CHARGEQ 15-Sep-1984 23:56:1 VAX=11 Bliss-32 V4.0-742 Page 3) 
voe-600 12-885-198¢ 13:38:09 DISKSVMSMASTER:CF1iX.SRCICHARGEQ.B32; 1° (2). 
GLOBAL ROUTINE CHARGE _QUOTA (UIC, BLO. COUNT, FLAGS) : L_NORM NOVALUE = 
'o4 
4 


! FUNCTIONAL DESCRIPTION: 
This routine locates the quota file entry identified by the UIC 


quota file modified 


' 

; given and checks and/or charges the indicated number of blocks, 

as specified by the flags. 

i CALLING SEQUENCE: | 
CHARGE _QUOTA (ARG1, ARG2, ARG3) 
i INPUT PARAMETERS: | 
! ARG1: UIC of eotry to charge 4 
' ARG2: number of blocks to charge (negative to credii) 
: ARGS: bit encoded flags . 

t bit 0 set to check if quota will be exceeded 
bit 1 set to actually charge blocks to the quota entry | 
i IMPLICIT INPUTS: 

' 10_ PACKET: user's 1/0 packet 
CURRENT_RVN: RVN of volume | 
i OUTPUT PARAMETERS: 
} NONE 
i IMPLICIT OUTPUTS: | 
NONE 
i ROUTINE VALUE: | 
NONE | 
i SIDE EFFECTS: 
. | 
' 


BEGIN 
MAP 
FLAGS : BITVECTOR; ! flags argument 
LABEL 
CHECK_QUOTA; ! block of code to check quota | 
LOCAL 
SAVE _RVN, : place to save current RVN 
Q_RETORD : REF BBLOCK; ! address of quota file record 
BIND_COMMON; 
EXTERNAL ROUTINE ; 
SWITCH VOLUME =: L_NORM; ! switch to desired RVN 
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v04-000 14-Sep-1984 12:30:09 DISKSVMSMASTER:CF11X.SRCICHARGEQ.B32;1 (2) 

' Save the current RVN and then switch context to the root RVN. 


' 
! First locate the quota file record. If there is no quota file enabled, this 
} routine is a NOP. 


2 
C 


SAVE_RVN = .CURRENT_RVN; 
SWITCH_VOLUME (1); 


CHECK_QUOTA: BEGIN 


Q_RECORD = SEARCH_QUOTA (.UIC, 0, 0, 1); 
IF .Q_RECORD EQL =1 THEN LEAVE CHECK_QUOTA; 


! Check for quota exceeded if requested and the user does not have EXQUOTA 
! privilege. If we are to check, lack of a quota record is an error; i 
we do not check, this routine is a NOP. 


~“ 
MEWN—OVDONOUSWN—O 


| 
IF .FLAGSCQUOTA_CHECK) 
AND NOT .BBLOCK CBBLOCK [C.1O_PACKETCIRPSL_ARBJ, ARBS$Q_PRIV], PRVSV_EXQUOTAJ | 


QU 


GIN 
Q_RECO 
KQUOTA); | 

Q } + .BLOCK_COUNT GTRU .Q_RECORD(DQF$L_PERMQUOTA] 


| QL 
THEN ERR_EXIT (SS$_EXDI 
if ‘ _RETORDCDOF $L_USAG 


BEGIN 
IF .CURRENT_WINDOW NEQ 0 
THEN 


BEGIN | 
JF, CURRENT WINDOWLWCBSV_OVERDRAWN 


SGOoooooooowowovnowvono bbe pat ty tet cert PE 


SAGE] + ,BLOCK_COUNT 


U GTRU 
PERMQUOTA] + .Q_RECORD(CDOQF$L_OVERDRAF TJ 
3 OTA) 
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Ssse 
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N 
CURRENT WINDOWCWCBSV _OVERDRAWN) = 1; 
ERR EXIT (SS$_EXDISKGUOTA) ; 


END 

ELSE 

a ERR_EXIT (SS$_EXDISKQUOTA); 
END 


ELSE | 
IF .Q_RECORD EQL 0 THEN LEAVE CHECK_QUOTA; | 


! If the record is to be charged, do so. Check the result to see if it 
} is negative; if so, zero it to prevent absurd results. 
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BEGIN 

Q RECORDEDOF SL L_USAGE) = .Q 
IF .Q_ RECORD OFS. USAGES 
THEN @_RECORD(DOF Si ge2,¢s 
WRITE QUOTA (.Q_RE (OR ye 


END; 
SWITCH VOLUME (.SAVE_RVN); 
END; 
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py cprocoares. USAGE] + 


«BLOCK COUNT; 


! end of block CHECK_QUOTA 


! end of routine CHARGE_QUOTA 


| 
CHARGEQ 


TITLE 
“IDENT \V04-000\ 
.EXTRN SWITCH_VOLUME 
PSECT $CODE$,NOWRT,2 
000¢ 00000 .ENTRY CHARGE _QUOTA, Save fe. R3 : 1102 
BD 09008 MOV, — ,JOCBASE). SAVE A : 1168 
BD iit Sushi nA —e ; 1169 
me 0000F CLRQ -(SP) : 
DD 00011 PUSHL UIC : 
AF 00019 capt: RECORDS Bod 4170! 
13 00020 BEQL 6S : 
69 00022 BLBC + 1177 
DO 00026 MOVL ash : 1178 
UR a ne 
13 0003 BEQL : 
C1 00033 ADDL3 BLOCK COUNT, 8(Q_RECORD), R2 > 1183 
D1 60059 CMPL » 12(Q_RECORD) ; 
1B 0030 BLEGU ; 
00 0003F MOVL 12(BASE), R1 : 1186 
1 00043 BEQL 2 : 
E1 0004 BBC #4, 11(R1), 1% > 1189 
ci 00044 ADDL3 istass RECORD), 12(Q_RECORD), R1 ; 1193 
1A 00038 BGTRU 2$ : 
E9 0005 BLBC -1.3(BAS : 1195 
80 0059 MOVW #1641, ASE § BASED ; 
88 0961 1$ Brea? iG, 110R1) 1183 | 
BF re 2$: CHMU =—s-s# 1004 : 1204 
4 00069 RET : 
D3 6A 3S: TSTL Q@_RECORD > 1209 
1 6C BEQL 3 
E rs aw RPOL2 bck COUNT 8(Q_RECORD) ; 1318 
§ $ BGEO R . :1 cal 
| 


, 
' 


1fgeoctggs $3:38:08 — DScbumnaSTeRscl tix.secacHarcea.es2:4%° (25. 
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08 AQ D4 QO07A CLRL 8(Q_RECORD) : 1320 
DD 00070 5$: PUSHL Q_RECORD 3 1221 

0000v CF FB ort CALLS #1, WRITE_QUOTA : 
3 DD 00084 6S: PUSHL SAVE_RVN 3 1226 

00006 CF 01 FB 00086 CALLS #1, SWITCH VOLUME : 
04 00088 RET :; 1228 


; Routine Size: 140 bytes, Routine Base: $CODE$ + 0000 


cuangea 1B-sep-i964 25:56:15 vane! aL ise32 y4.0-742 
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FREE GUOTA: record number of first free quote fi file entry 


nm 
MINIS SUSAR ES 


se] 8 GLOBAL ROUTINE SEARCH_QUOTA (UIC, FLAGS, START_REC, USE_CACHE) : L_NORM = ; 
, ) yi ; 
$2 § t FUNCTIONAL DESCRIPTION: | ; 
4 5 i This routine searches the quota file for the specified UIC under : 
rt control of the match flags. | ‘ 
20 8 i CALLING SEQUENCE: é 
1 ip SEARCH_QUOTA (ARG1, ARG2, ARG3, ARG4) ° 
38 41 1! INPUT PARAMETERS : : 
4 tg i UIC to search for ° 
55 4 i Ane match control flags from FIB ° 
28 44 i ARG pecere number at which to start ° 
5 45 i ARG4: 1 to find record in the cache ‘ 
ry ? : to unconditionally go to the quota file ‘ 
48 i imPL CTT INPUTS: 
49 i CURRENT_VCB: address of volume's VCB 

context set to RVN 1 of volume set 

i 

i tated OUTPUTS: 

A_RECORD: record number of found record 

i 

i 

i 

i 

i 

i 

i 

i 

i 

ie 
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| 

| 

| 

| 

OUTPUT PARAMETERS: | 
NONE | 

| 

| 

| 
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2 
2 QUOTA_INDEX: cache index of cache entry if found 
3 DUMMY-REC: filled in with cache contents if found 
2 ROUTINE VALUE: 
re 2 address of quota file record found, 0 if none, -1 if not quota file 
$e $ SIDE EFFECTS: 
$e 2 quota file read, contents of buffer cache altered 
eae 
80 8 
81 269 BEGIN 
Ht $70 
8 71 MAP 
13 % FLAGS : BITVECTOR; ! match control flags 
Hy] 74 LITERAL 
8 75 ALL_GROUP = $BITPOSITION (FIBSV_ALL_GRP), 
a8 7 ALL" MEMBER = it Ata ba (FIBSV_ “ALL_MEM), 
34 44 RECS_PER_BLOCK = 512 / DQFSC_LENGTH; 
91 79 LABEL 
4 ? QUOTA_SCAN; ' search quota file 
94 LOCAL 
95 5 FCB : REF BBLOCK, } aagress of quota file FCB 
38 QUOTA_ CACHE : REF BBLOCK, opecet of quota ene 
9 5 QUOTA-LIST : REF SRE VECTOR VeASC Pou LENGTH 
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1 
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8 1 
9 1 
0 1 
1 1 
§ 1 
1 

1 

5 1 
6 1 
7? 1 
8 1 
9 1 
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1 

' gegrese of quota cache entries 
} ndex into quota cache 

i 

i 


J 
REC_NUM uota file record to read 
FIRST_REC, Wrst record in block to use 
VBN block number of quota file 
Q_RECORD : REF BBLOCK; address of quota file record 
BIND_ COMMON; 
EXTERNAL ROUTINE 
ALLOCATION LOCK : L_NORM, ! allocation lock serialization 
BUILD EXT FCBS : L-NORM NOVALUE, ! build extension fcb chain. 
SERIAC_FICE : Lo . : get serialization lock 
REBLD PRIM FCB : L_NORM NOVALUE, ' rebuild fcb from header 
READ_READER : L-NORM, ! read file header 
RELEASE _SERIAL_LOCK™: L_NORM NOVALUE, ! release serialization lock 
READ_BLOCK : L_NORA; ! read a disk block 


Get the FCB address for the quota file. If none, take an error exit. 
FCB = .CURRENT_VCBCVCBSL_QUOTAF CB); 

IF .FCB EQL 0 THEN RETURN -1; 

Serialize quota search using allocation lock. 


ALLOCATION_LOCK (); 


: Check to see if the quota fcb is stale, that is, it has been modified 
! on another node. If so, serialize on the quota file itself, read 
the header and rebuild the fcb. 


If .FCB CFCBSV_STALE) 
THEN 

BEGIN 

OCAL 


HEADER 
SAV_CURRLCKINDX; 
SAV_CURRLCKINDX = .CURR_LCKINDX; 
SERIAL_FILE (FCB CFCBSW_FID}); 
Setting this ptog prevents READ_HEADER from nods ty ine FILE HEADER. 


It is also set when the BUILD_EXT_FCBS routine calls READ_READER 
if BUILD_EXT_FCBS is called with Ehe optional fcb argument. 


STSFLGS CSTS_LEAVE_FILEHDR) = 1; 
HEADER = READ_HEADER (0, .FCB); 
REBLD_PRIM_FCB (.FCB, HEADER); 
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uw 


REAL_Q 
QUOTA_ 
QUOTA LIST = QUOTA _CACRECVCASL_QOOLISTI; 

ff wot -FLAGSCALL_MEMBER] AND NOT .FLAGSCALL_GROUP) 


WWWAWAA 


BEGIN 
J = SCAN_QUO_CACHE (.UIC, .USE_CACHE); 
IF .QUOTA_LISTC.J-1, VCA$SL_QUORECNUM] NEQ 0 


BEGIN 
IF NOT .USE_CACHE 
OR NOT .QUOTA_LISTC.J-1, VCA$V_QUOVALIDJ 


REC = 0; 
CACHE = .CURRENT VCBCVCBSL_QUOCACHE); 
J- | 
OR NOT QUOTA CACHE LVCA$V_CACHEVAL ID | 
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BEGIN 
QUOTA RECORD = .QUOTA LISTC.J-1, VCASL QuonE CNURI 
OM = .QUOTA LISTE.J-1 ECNUM) - 1; 


HFFA 
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1 
VCA$L_QUOR 


r¥ rh BUILD_EXT_FCBS (.HEADER, .FCB); 
5 45 IF .SAV_CURRLCKINDX NEQ .CURR_LCKINDX 
8 *$ THEN 
9 4 BEGIN 
60 rk RELEASE SERIAL_LOCK (.CURR_LCKINDX); 
61 4 CURR_LCRINDX =".SAV_CURRLCRINDX; 
88 : _ | 
64 § ! If PRIMARY_FCB is nonzero and not the quota file fcb, and also if | 
65 ! it is the same lockbasis as the current lock index, then reread 
o6 e¢ ' the header for it to re-establish FILE_HEADER. 
s af 
69 2$ IF .PRIMARY_FCB NEQ 0 
70 58 THEN 
71 59 IF .PRIMARY_FCB NEQ .FCB 
f rs a -PRIMARY_FCB CFCBSL_LOCKBASIS] EQL .LB_BASIS C.CURR_LCKINDX] 
74 o¢ READ_HEADER (0, .PRIMARY_FCB); 
75 6 
76 : END; 
78 6 ! If there are no wild cards in the search, scan the quota cache first. 
144 7 ! If the value block was lost, the cache entry comes back not valid, 
80 8 ! but with contents. In this case, and if this is a write-through operation, 
381 9 ! use the record number in the cache to read the record to save the search. 
306 y As long as the record is read, also update it if the cache entry is dirty. 
84 ; 5 
é 
g 
8 
9 
, 
4 
8 
9 
0 
1 


REC_N .0 
REAC_Q_REC = READ_BLOCK (.REC_NUM™/ RECS PER BLOCK 
t BNI; 1, QUOTA, TYPE) | 


a a a tk a a a a 9 4 —s 4 — 2 2s 2 2 — > — 4 >» 4 4 4 4 4 
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9 
40 9 .FOBCFCBSL_STC 
4 3 + (.REC_NUM MOD RECS Pgh -BLock) * DQFSC_LENGTH; 
405 9 IF .QUOTA_LISTC.J-1, VCASV_QUOVALTD 
406 94 THEN 
40 95 CLEAN_QUO_CACHE (.J, .REAL_Q_REC) 
408 9 SE 
409 9 BEGIN 
410 98 ENTER QUO_CACHE (.J, .REAL_Q_REC, 0, .USE_CACHE); 
411 99 CHSMOVE (DGFSC_LENGTH, .REAL~Q_REC, DUMMY-REC); 


| 
| CH 
; :56: =11 BLiss-32_v4.0-742 Page 10 vo 

RGF 1fseo-t9ge 13:36:03 DASKSVMSMASTERSCF TX. 9RCICHARGEO.832¢1 (3) | 
CHA 
V04 
. 61 14 5 eo | : 
3 ci 1409 RETURN GUMMY REC; | 
: D: | 
» 615 14 _EN . | 
: 41 14 END; it's not there | é 
; (either because it's no : 
; fH i é | or S05 Snorer ion won't allow it), Scan the blocks of the quota file, ; 
; t33 1? i Took ing for a matching record. ; 
> 654 1408 
: O56 121, $ QUOTA_SCAN: BEGIN ; 
; 141¢ $_PER BLOCK; E 
SE HUE HAUTE dant ARLAPECAUMRIESPERERCBHOCESseacrcoseerauca = 2 
° os8 ad ° 
a 2 1415 3 00 ; 
; 161g ¢ = BEGIN .FCBCFCBSL_STLBNJ, ; 
5 ost 1417 4 G_RECORD = READ_BLOCK abc OETSRE STLBNI. 7 
3 QUOTA 
3 d 1 1418 2 + .FIRST_REC * DOFSC_LENGTH; : 
; ‘ 12 < INCR J FROM .FIRST_REC TO RECS_PER_BLOCK = 1 
: 1423 4 dO ; 
O86 1258 QUOTA-RECORD = .VBN * RECS_PER_BLOCK + .J + 1; | 
; 4 ” 
: 89 1059 IF_.Q_RECORDCDOF$V_ACTIVE3 ; 
; 440 1058 THEN OEGIN QL .(Q_RECORDCDOF$L_UIC])<00,16>) 
: tag 1680 i CFLAGSEALEZGROUPS OR “ULCcI6, 16> EQL « (Q7RECORD DOFSL-UIEI)<16, 16>) 
: 46 1431 7 THEN LEAVE GUOTR SCAN; : 
3 444 14 ¢ 6 END 
: $e ie é | 
se : ELSE | : 
: £6 1435 3 
; 4c he THEN FREE QUOTA. = .QUOTA_RECORD; | 
5 4 E . ; 
; 451 1439 ; ; | 
i 3 ee} Q,RECORD = .0.RECORD + DOFSC_LENGTH: | 
S on 1442 4 3 
436 it Erest Pee = 0; ! end of block scan loop | 
: ie 1229 $ IF NOT .FLAGSCALL MEMBER AND NOT .FLAGSCALL_GROUP] | 
; 459 1268 § THEN REL QUOTA LOCK. (9): ' return 0 if not found 
ei 1409 RETURN OF i end of block QUOTA_SCAN ; 
+ 46 1450 ¢ END; ild cards, now ; 
; ! file, If there were w ; 
BT ae ne tata cert nga tie re Utne cardi he, ; 
3 465 Mee? 1 Fife cise be scanned Hirst te be able to return the entries i is present. : 
: 269 1455 i order; yet we must look at the cache 
: 46 
: 468 1456 : 


eee ee — 


H 5 


CHARGEQ 15-Sep- VAX-11 Bliss-32 V4.0-742 Page 11 
yoee600 Veaeea TSR T5:885b8 Ptah tea hte eke acuancea.esenk’ cd} 
: ¢ 8 1438 RE EAL_O_RE RECORD; | ; 
; cr 1489 3 er stash “MEMBER] OR .FLAGSCALL_GROUP) : 
: 467 1461 | : 
: 47% 146 ae QUO_CACHE (.Q_RECORDCDOQFS$L_UICI, 0); : 
; 4675 1208 IF jnuork LISTC.J-1, VOASV_QUOVALIDI ; 
3 67 1464 3 
: of 186 CLEAN QUO CACHE (.J, .@ RECORD) 
: 6 1267 4 urn DUMMY _REC; r ; 
oe: : 
: 6 1470 ; 
: ret tere 3 See: enter the new record into the quota cache. | : 
: 485 147 | ; 
; cB 1474 2 ENTER_QUO_CACHE ( .Q_RECORD, 0, .USE_CACHE); | ; 
° U Y é 
487 1475 AT oe LENGTH: TQ_RECORD, DUMMY-REC); | ; 
; 489 1299 3 
; 490 1478 1€ ! end of routine SEARCH QUOTA : 
| . 
EXTRN ALLOCATION_LOCK : 
EXTRN BUILD_EXT_FCBS, SERIAL_FILE : 
EXTRN REBLD PRIA ree. ae HEADER ; 
EXTRN RELEASE SERIAL : 
EXTRN READ_BLOCK | : 
OBFC 00000 ENTRY SEAR CH_QUOTA, Save R2,R3,R4,R5,R6,R7,R8,R9,-; 1229 | : 
0284 CA 9F 00002 PUSHAB $92 (BASE) > 1291 : 
59 02B8C CA 9E 00006 MOVAB OO (BASE) , R9 ; : 
by) 02c4 «CA 3 90008 MOVAB 708(BASE). R11 wm ; 
50 98 AA 00 0001 MOVL -104(BASES, RO : 1508 : 
57 54 AO 06 00014 MOVL &4(RO), FCB : F 
7 00018 BNEQ 1$ : 1309 ; 
50 1 cE OO1A MNEGL #1, RO ; ; 
4 0001D ET : ; 
00006 CF 00 FB OO1E 1$: CALLS #9 LLOCATION_LOCK > 1314 : 
$1 23. AZ? «ES 000 LBC (FCB) 3$ > 1321 : 
2 14 AA 0 0 OVL O(BASES, SAV_CURRLCKINDX : 1328 3 
24 A? OF B PUSHAB 36(FCB) : 1330 3 
00006 CF 1 EB 0 CALLS #1, SERIAL FILE : : 
A6 AA $ 8 B1SB #8, -90(BASE) 3 1337 3 
DD 000 PUSHL FCB : 1339 : 
D4 9 CLRL. = (SP) : : 
00006 cf FB CALLS #3, READ_HEADER : | : 
3 D 4 MOVL RO, HEADER : 2 
DD 0004 PUSHL HEADE ; 1341 | ; 
57 DD 0004 PUSHL th : F 
00006 CF 2 FB CALLS R REBLD. PRIM_FCB : | : 
0088 8F BB 0004 PUSHR > 1343) : 
00006 CF 3 FB 0005 CALLS mmuteD CBs ; | F 
14 AA D1 0005 CMPL SA CURRE CE INDK. O(BASE) : 1345 ; 
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0000G CF 
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51 
57 
50 
0080 CA40 
0000G CF 
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5 
0 
08 Ac 
0000Vv gf 
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58 
50 
18 
08 
: 
is 
i8 
52 
00006 gf 
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E 
3 
58 
EF A046 
0000v CF 


0090V CF 
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4 :56:1 VAX-11 Bliss-32 V4. 
Hn 93:38:08 DISKSVMSMASTER:CF11 
EQL 
PUSHL $5 BASE) 
CALLS #1, RELEASE SERIAL LOCK 
MOVL AV_CURRLCKINDX, 20(BASE) 
MOVL (BASE), R1 
BEQL $ 
cAPL Rl. FCB 
MOVL 20 cease) RO 
CMPL 6(R1), 128(BASE)CROI 
BNEQ © 3$ 
feae spy 
CALLS #2, READ_HEADER 
MOVL  -104(BASE), RO 
MOVL 9g(R0), QUOTA_CACHE 
MOVAB 68(R2), QUOTA-LIST 
a te 
BBS #i, FLAGS, 4$ 
Risme | Uienencte 
CALLS yo SCAN_QUO_CACHE 
MULL3 #28, J, RO 
ADDL2 QUOTA LIST, RO 
CMPZV #0, #24, -20(RO), #0 
stae | OSS eros ees 
BLBS })cQUOTA CACHE) 9$ 
EXTZV #0, #24,7-20(ROS, a0(SP) 
MULL3 36, j R 
EXTZv #0, #24, 
DECL REC_NUM 
et 
DIVL #6 REC_NUM, RO 
PUSHAB a@48(FCB)CRO) 
CALLS #3, READ BLOCK 
EMUL 1, REC_RUM, #0, -(SP) 
EDIV aig. (SP)+, Ri, R1 
noo $ Ri “RO, (R9) 
BBC #0, -17(RO)CQUOTA_LISTJ, 8$ 
usa (ROD 
CALLS #2. CLEAN_QUO_CACHE 
PUSHL USE_CACHE 
CLRL. = = (SP) 
tn il 
CALLS #4, ENTER_QUO_CACHE 
MOVC3 #32, a0(R9), TR11) 


=20(RO)CQUOTA_LISTJ, REC_NUM 
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; Routine Size: 


500 bytes, 


Routine Base: 


1$es2p-19 
14-Sep-1984 


04 001F3 
SCODES + 008C 


Be 12:30:09 
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49 13 GLOBAL ROUTINE WRITE_QUOTA (Q_RECORD) : L_NORM NOVALUE = 
494 1 1 !¢4 
495 ; 

FUNCTIONAL DESCRIPTION: 


This routine writes the indicated quota record. If a cache entry 
exists for the record being processed (indicated by the record 
500 being the dummy record), we update the cache entry. If we also 


have the real quota record in memory, then mark it for write-back. 
CALLING SEQUENCE: 
WRITE_QUOTA (ARG1) 


INPUT PARAMETERS: 
ARG1: address of quota record 


94 on 4 ont tee ae + AS AAS £4 at tery 9 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i] 
QUOTA_INDEX: cache index of cache entry 
1 
i 
i 
i 
.] 
i 
i] 
i 
‘ 
s 


| 
| 
| 
3 14 1 
3 14 1 
3 _ 1 | 
: 14 1 
; 1483 1 | 
: 1484 1 | 
1288 | 
; 1289 | 
; 501 1488 1 
3 o¢ 1489 1 
3; 3 1490 1 
; 04 1491 1 
: 05 14 ¢ 1 
; 506 14 1 
3 307 1494 1 
: 309 1296 
: 510 1299 IMPLICIT INPUTS: 
; 511 14 3 1 REAL_Q_REC: buffer of real quota record if exists 
: 318 1800 | 
: 514 1501 1 | OUTPUT PARAMETERS: | 
: 3 1303 ee | 
: 517 1504 1 | IMPLICIT OUTPUTS: | 
: 315 1306 4 seh 
: 520 1507 1 ' ROUTINE VALUE: | 
; 358 1510 1 ! SIDE EFFECTS: 
3; 5246 1511 1 quota cache modified, quota record marked for write-back 
; 2s? 1316 1 
3 ee 1513 1 I= 
3 asf 1514 1 
: 528 1515 2 BEGIN 
2 crete 
: 33! 1318 Q_RECORD : REF BBLOCK; ! address of quota record 
Py | 
3 338 1350 BIND_COMMON; 
: 535 1328 EXTERNAL ROUTINE 
3 330 1 ? MARK_DIRTY : L_NORM; ! mark buffer for write back 
: | 
3 338 1525 
: 539 He ! If the specified record is the duaay record, there is a cache entry. | 
: 540 15 ' Therefore, update it. Also update the associated real record if there 
>; 941 1528 ! is one. 
HBB! 
F tz 1531 2 IF .Q_RECURD EQL DUMMY_REC 
3 ez 15 ; THEN 
: 546 15 BEGIN | 
3 «547 1534 ENTER_QUO_CACHE 5 OUOTA_IMOEE -Q_RECORD, .REAL_Q_REC EQL 0, 2); 
; 548 1535 IF .REAL_G_REC NEQ 
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Mm 5 
15-Sep-1984 1 VAX~11 Bliss<-32 V4.0-742 Page 16 
04 12-80 8-188e $3 38 0 DISKSVMSMASTER:CF11X.SRCJCHARGEQ.B32;1 79 (4) 
: 549 1 § 3 | 
3; 330 1 4 BEGIN 
; 551 1 8 4 CHSMOVE (DOFSC_LENGTH, .Q_RECORD, .REAL_Q_REC); 
; 22¢ 1 4 ARK_D.RTY (.REAL_Q_REC); 
3 é 1540 ENDS 
3 H 4 1541 END 
s 399 1266 
3 228 154 ! Otherwise, if there is no cache entry, we just have to mark the 
; 557 1544 i buffer dirty. 
; 558 1545 i 
; 559 1 6 
; 560 154 SE 
; 561 1545 MARK_DIRTY (.Q_RECORD); 
; 266 1549 
3; & 1550 1 


END; ! end of routire WRITE_QUOTA | 


-EXTRN MARK_DIRTY 


007¢ 00000 SENTRY WRITE QUOTA, save R2,R3,R4,R5,R6 : 1479 
56 02BC CA 9E 00002 MOVAB 700 (BASE) : 1518 
50 02¢4 CA 9E 00007 MOVAB 708(B + 1531 

50 04 AC D1 9990¢ CMPL Q RECORD. “RO ; 

24 12 0001 NEQ 28 : 
02 DD 00012 PUSHL #2 > 1534 

7E 54 00014 CLRL. -=(SP) : 

66 05 00016 TSTL (R6) : 

02 12 00018 BNEQ 1$ : 

6E 06 O001A INCL (SP) : 

04 AC DD 0001C 1$: PUSHL Q RECORD ; 

02CO CA ODD 0001f PUSHL 704(BASE) ; 

O000v CF 04 FB 000 CALLS #4, ENTER_QUO_CACHE : 
66 D 900 8 TSTL (R6) > 1535 

12 13 OO02A BEQL 4$ ; 
00 B86 04 BC 20 28 0002C MOVC3 #32, @Q_RECORD, a0(R6) : 1538 
66 DD 00032 PUSHL (R65) : 1539 

03 11 00034 BRB 3$ ; 
04 AC DD 00036 28: PUSHL Q RECORD : 1548 

00006 CF 01 FB 00039 3$: CALLS #1, MARK_DIRTY : 
04 OO03E 4$: RET : 1550 


; Routine Size: 63 bytes, Routine Base: $CODE$S + 0280 
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0 127 900- 1382 93:38:13 DISKSVMSMASTER:LF1iX.SRCICHARGEQ.B32:1- (5) 
L_N 


oa 


i FUNCTIONAL DESCRIPTION: 


This routine scans the quota cache for the indicated UIC. If found, 
it returns the contents, and marks the entry used if requested. 


i CALLING SEQUENCE: 
i SCAN_QUO_CACHE (ARG1, ARG2) 


1 

' | 
' | 
! | 
! 

1 i 
i | 
i i 
i 
' 
' INPUT PARAMETERS: 

! ARG1: UIC to search for 
' ARG2: 1 to record new use 

0 to not | 
' IMPLICIT INPUTS: 
CURRENT_VCB: VCB of volume 

i QUTPUT PARAMETERS: 

NONE 

{ 

' 

' 

' 

' 

4 

! 

1 

! 

i] 

1 

i] 


! IMPLICIT OUTPUTS: 

DUMMY _REC: receives contents of cache entry if found 
QUOTA_INDEX: receives index of cache entry found 
QUOTA_RECORD: quota file record number of found entry 


i ROUTINE VALUE: 
index of entry found 


i SIDE EFFECTS: 


DNAOVUSWR OO OONAY FW O OONOU EWN" OV0on 


PELL IVLV IVI LVIVLUDV LVL LUST SV LULUSVSUSUSVSUSVSVSVSUSUSISUS ISVS 
DOOODOOO OO CODD ODUDOWONNNNA NANNY 


quota cache entry modified 
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o— . ome 


Be Be Be Be Se Oe Se Se Be Se BH Se Ge Se Se Ge Be Se Se Ge Ge Ge Ge Ge SoG GH Sse Ge Ge Ge Se GHGs Ge Se Ge Se Se Se Ge Se Se Se Se Se Se Seas ee te Ge Se Se Se esas 


99 
600 -- 
601 
60 BEGIN 
60 
604 LITERAL 
605 RECS_PER_BLOCK = 512 / DQFSC_LENGTH; 
607 LABEL 
608 QUOTA_SEARCH; ! body of search code 
610 LOCAL | 
611 QUOTA_CACHE : REF BBLOCK, ! operons of quota cache 
$18 QUOTA_LIST : REF BBLOCKVECTOR C,VCASC_QUOLENGTHI, ; 
61 ! address of quota cache entries 
(514 J ! index into quota cache 
615 LOWEST_LRU, i oldest quota LRU index 
616 LOWEST J ! oldest quota cache entry index 
617 LRU_DECTA, ' LRU index of current entry 
618 OLD_RECORD : REF BBLOCK, ! address of old quota record 
619 REC_NUM, ' quota file record to read 
54 FCB : REF BBLOCK; ! address of quota file FCB 


6 
CHARGEQ 18-56 -1984 23:56:1 VAX-11 Bliss-32 V4.0-742 B 
yoen 000 127808=1 384 $3:38:08 DISKSVMSMASTER:CF11X.SRCICHARGEQ.832; 
3; 6 ¢ 1908 EXTERNAL 
3 § 16 PMSSGL_QUOHIT : ADDRESSING_MODE (GENERAL), 
; 624 1919 ! count of quota cache hits 
; 625 1611 PMS$SGL_QUOMISS : ADDRESSING_MODE (GENERAL); 
3 ? $ 1916 ' count of quota cache misses 
; 628 1614 EXTERNAL ROUTINE 
; 629 1615 CACHE LOCK : L_NORM, ! acquire cache lock 
; 630 1616 READ_BLOCK : L-NORM; ! read a disk block 
; 63) 161 
3 6 ¢ 1913 
3; 6 161 BIND_ COMMON; 
3; 6 1620 
; 635 1621 
3 6 16 ¢ ! If the cache is not currently marked valid, do so if possible. 
; 637 16 ! This involves taking out the cache lock if the volume is cluster 
3; 6 1624 ! accessible, and checking for quota file writers and a non-null 
; 639 1625 ' cache size. 
; 640 16 $ ! 
; 641 16 
; org 1628 QUOTA_CACHE = .CURRENT_ VCBLVCBSL_QUOCACHE]; 
; 643 16 4 FCB =". CURRENT_VCBLVCBSL_QUOTAF (BJ; 
; 665 1o9) IF NOT .QUOTA_CACHECVCAS$V_CACHEVALID) 
+; 646 16 § AND NOT .QUOTA_CACHECVCAS9_CACHEFLUSH] 
: 647 163 THEN 
; 648 1634 BEGIN 
: 649 1635 IF ,QUOTA gies edt it, GTRU 1 
; 650 1636 AND NOT ,BBLOCK CCURRERT UCBCUCBS$L_DEVCHAR], DEVS$V_DMT] 
> 651 163 AND .FCBLFCBS$W_WCNT) LEQO 1 
3; & 1638 AND 
3; @ 1639 4 BEGIN 
; 654 1640 4 IF .BBLOCK CCURRENT Bepcucest. DEVCHAR2], DEVS$V_CLUJ 
; 655 1641 4 THEN CACHE_LOCK (.FCBCFCBSL_LOCKBASIS], QUOTA_CACHECVCASL_QUOCLKIDJ, 0) 
; 65 lobe 4 ELSE 1 
3 $695 1645 4 END 
; 658 1644 THEN 
; 659 1645 QUOTA_CACHECVCASV_CACHEVALID] = 1 
; 660 1646 ELS 
; 661 164 QUOTA_CACHECVCASV_CACHEFLUSH] = 1; 
3 66¢ 1648 END; 
; 66 1649 ; 
3 re 1939 : Search the quota cache for an active entry with a matching UIC. 
3 008 1026 
; 66 165 QUOTA_SEARCH: BEGIN 
; 668 1654 
; 669 1655 QUOTA_LIST = QUOTA os 4 i, QUOLISTI; 
; 670 1656 INCR R FROM 1 TO .QUOTA_CACHECOCA$W_QUOSIZE) 
3 67) 165 DO 
; e276 1028 4 BEGIN 
3; 67 1659 4 IF SUOTAL Sth Ent VCASL_QUORECNUM] NEQ 0 
: 676 1660 4 AND .QUOTA_LISTC.K-1, VCASL_QUOUIC] EQL .UIC 
; 675 1661 4 THEN 
3 676 1996 BEG 
3; 67 166 IF .MARK_USE 
; 678 1664 THE 


age 
39 
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; 679 1665 6 BEGIN ‘ 
; 1 6 gut ASL ESTE K=-1, VCASW_QUOLRUX] = .QUOTA CACHECVCASW QUOLRUJ; : 
; 681 166 QUOTALCACH Evca$w_QUOLRUJ = .QUOTA_CACHETVCASW_QUOLRO) + 1; : 
3; § § 1669 PMS$GL_QUOHIT = .PMS$GL_QUOHIT + 1; : 
3; 6 1670 J = 4K; : 
; 685 1671 LEAVE QUOTA_SEARCH; : 
; 686 1678 4 END; : 
; oF 167 END; ; 
; 688 1674 : 
; 689 1675 ! We failed to find a match in the quota cache. Search the cache for a free : 
; 690 1676 ! entry, or, failing that, the entry with the oldest LRU index. : 
; 691 167 : . 
; 69 1978 : 
; 69 167 PMSSGL_QUOMISS = .PMSSGL_QUOMISS + 1; ‘ 
; 694 1680 LOWEST_LRU = 0; ‘ 
; 695 1681 LOWEST_J = 1; : 
; 698 16 ¢ INCR J~FROM 1 TO -QUOTA_CACHECVCASW_QUOSIZE) ° 
: 69 16 Dd ‘ 
; 698 1684 4 BEGIN ‘ 
3 +44 1685 4 IF ,QUOTA_LISTC.J-1, VCASL_QUORECNUM) EQL 0 : 
: 00 1656 4 THEN ‘ 
; 701 168 2 BEGIN | : 
; 1688 LOWEST J = .J; ‘ 
3; 70 1689 5 EXITLOOP; : 
; 704 1690 4 END; ; 
: 705 1691 4 LRU_DELTA = .QUOTA_CACHECVCA$W_QUOLRU] - .QUOTA_LISTC.J-1, VCASW_QUOLRUX]; | : 
; P06 1936 4 IF .LRU_DELTA GTRU .LOWEST_LRU ‘ 
; 70 1693 4 THEN : 
; 708 1694 5 BEGIN | ‘ 
; 709 1695 5 LOWEST_LRU = .LRU_DELTA; : 
: 710 1696 5 LOWEST_J = .J; : 
; 711 1697 4 END; ‘ 
; ar 1698 END; ° 
BE 1699 ; : 
3 716 1700 ! If the cache entry we are about to use contains a modified entry, we must : 
3 715 1701 ' read the corresponding record, update it, and write it. If it represents a ; 
3 rg 1708 ! held lock, we must release it. ‘ 
s fi 170 : : 
; 718 1704 ; 
3; ny 1705 J = LOWEST J; : 
; 720 1706 IF -QUOTACISTE. Jt, VCASV _QUOVAL ID} : 
; 721 1707 AND .QUOTA_LISTL.J-1, VCASV_QUODIRTY : 
we ¢ 1708 TH : 
. 17 4 EGIN : 
: 726 1710 4 REC_NUM = .QUOTA_LISTC.J-1, VCASL_QUORECNUM) - 1; : 
: 725 1711 4 OLD-RECORD = READ_BLOCK (REC Wy / RECS_PER_BLOCK : 
. £ $ Hat 4 + .FCBCFCBSL_STCBNJ; 1, QUOTA_TYPE) : 
2% 1713 4 + (,REC_NUM MOD RECS_PER_BLOCK) * DOQFSC_LENGTH; : 
; 728 1714 4 CLEAN_QUO_CACHE (.J, .OLD_RECORD); : 
; 729 1715 END; | ; 
; 730 1716 REL_QUOTA_LOCK (.J); ; 
; 73s rt END; ! end of block QUOTA_SEARCH | : 
S. g 1719 ! If the quota cache entry is not marked valid, take out the lock on it. : 
3 734 1730 ' If thereafter it is valid, fill in the dummy record with its contents. 3 
; 735 1721 : ; 
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04 
.. 17 3 
; He 17 § IFN NOT .QUOTA_LISTC.J=-1, VCA$V_QUOVALIDI | : 
. 7 § 1725 NBEGIN | ; 
; 740 17 § QUOTA_LISTC.J-1, VCA$L_QUOUIC] = .UIC; | : 
; 4) V7 GET_QOOTA "totk "¥ LCRSK_PWMODE):; : 
: 43 V7 : If ,0UOfA_LISTC. .J-1, VCAS$V_QUOVALIDJ | : 
> 745 1731 BEGIN ; 
: 7% 17 é DUMMY _RECCDQFSL_FLAGS] = DOFSM Active: ; 
; 74 17 QUOTA_RECORD = TQUOTA_LISTC.J-T rVEASL, QUORE CNUR) ; 
: 768 1734 DUMMY ~RECLD FS auics = .Quota_Lis ycA $L_auduIc); F 
> 749 1735 CHSMOVE (12, QUOTA_LISTE.J=1,-VCASL “USAGE DUMMY_REC tor St_usAGED): ; 
: 751 17 QUOTA. INDEX = .J3 ; 
Be IG ad 
3; 754 1740 1 END; ! end of routine SCAN_QUO_CACHE : 
.EXTRN PMSS$GL_QUOHIT, PMSSGL_QUOMISS | ; 
-EXTRN CACHE_COCK : 
OBFC 00000 SCAN_QUO_CACHE: ; 
5E 04 ¢2 0000 SUBL2 #4, S ; | 
58 02c4 «CA i 0000 MOVAB 708(BASE), R11 + 1616. 
50 98 AA DO OOO0A MOVL -104(BASES, RO : 1628 
53 5¢ 6 AO 00005 MOVL 92(RO) ~AUOTA CACHE ; 
50 98 AA 06 0001 MOVL -104(BASE), RO + 1629 
54 54 AO DO 00016 MOVL  84(RO) ; 
38 0B A3 EB OOOIA BLBS §_11(QUOTA_ CACHE), 3$ ; 1631, 
36 0B OA 01 £0 90016 BBS ", YT CQOOTA CACHE), 3$ : 1632 
01 63 Bi 909 CMPW © (QUOTA_CACHEY, + 1635 | 
2D 18 90 6 BLEQU 2$ : | 
50 94 AA DO 00028 MOVL -108 thi): 8 RO : 1636) 
24 3a AO 05 £0 000eC BBS “5, 5 : 
01 1¢ =A4 «B1 00031 CMP g8(F BFC > 1637 | 
1E 1A 00035 BGTRU 2$ ; 
50 94 AA DO 00037 MOVL _, Maa RO + 1640 | 
10 3c 6 aOs«&E9-:000 BLBC  60(RO), 1$ : | 
7 b4 99 F CLRL = + 1641 
04 Ad 9F 00041 PUSHAB 4(QUOTA_CACHE) : 
4C Ad DD 00044 PUSHL  76(F ; 
00006 CF 3 FB C047 CALLS #3, CACHE_LOCK ; | 
06 0 004C LBC , ; | 
0B OA a 8 0 4F 1$: B1sB2 #1, 11(QUOTA_CACHE) + 1645. 
0B «Ad 8 3 3: B1SB2 a 11 (QUOTA CACHE) + 1647 
3¢ 44 AS OSE $: MOVAB 68(R3), QUOTA_L List > 1655 
5 ¢ MOVZWL (Quota. CACHE); R > 1656. 
ps CLRL ; 
— 11 BRS ; 
51 50 ¢ C5 48: MULL K, R1 : 1659 
51 $2 C ADDL Quota’ (ist, RI : 
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EC Al 18 90 f CMPZ2V. #0, #24, -20(R1), #0 : | 
F BEQL : 
04 ac FC OAT p 7 CMPL =«-_- 4 (R11), - VIC + 1660) 
18 : 7 BNEG 6$ : | 
08 AC E 7A BLBC K_USE + 1663) 
E6 AI As 60 43 MOV (QUOTA_CACHE). -26(R1) i 1666 
A386 INCW (QUOTA CACHE) + 166 
000000006 9 D6 0 5$ INCL  PMS$GL_QUOHIT : 1669 
56 p C MOVL KK, J t 1670 
009 } O8F BRW 13$ + 1671 
CE 50 F 092 6$ AOBLEQ R5, K, 4$ + 1656 
000000006 0 6 9 INCL PMS$GL_QUOMISS + 1679 
D 9C CLRL LOWEST~LRU + 1680 
33 01 0 4: MOVL #1, LOWEST J ; 1681) 
9 $3 C 000A MOVZWL (QUOTA_CACRE), R9 + 1682 
0 D4 000A4 OC ——— + 1691 
2a 11 O0AG BRB : 
51 50 1¢ C5 OOOA8 7$ MULL3 #28, J, R1 + 1685 
51 52 CO 000aC ADDL2 QUOTA_LIST, R1 : 
00 EC Al 18 00 €£D OOOAF CMPZ7V #0, #24, -20(R1), #0 : 
99 if 00085 BNEQ : 
56 0 pO 00087 MOVL J, LOWEST_J : 1688 
1A 11 OOOBA BRB + 1687 
57 02 A3 3¢ O0BC 8$ MOVZWL 2(QUOTA_CACHE), LRU_DELTA + 1691 
66 £6 Al 3¢ 000C0 MOVZ2WL =26(R1)> (SP) : 
5 a3 C2 900¢4 SUBL2 (SP), LRU_DELTA : 
58 5? D1 000C7 CMPL =‘ LRU_DELTA> LOWEST_LRU > 1692 
06 1B OOOCA BLEQU 9$ ; 
58 D0 000CC MOVL § LRU_DELTA, LOWEST_LRU + 1695 
55 50 OY BOOcE MOVL J, COWEST_ : 1696 
D2 50 59 F3 000D2 9S: AOBLEQ R9, J + 1682 
56 55 06 00006 10$:  MOVL. LOWEST_J, J : 1705 
50 56 fs C5 00009 MULL3 #28, J; : 1706 
50 52 ¢0 000DD ADDL2 QUOTA LIST, RO ; 
37 EF AO €E9 QOOEO BLBC =-17(RO 3 
32 EF AO 01 €1 O00E4 BBC #1, -17(RO), 11% : 1707 
55 EC AO 18 99 EF O00E9 EXTZV #0. #24, -20(RO), REC_NUM : 1710 
an bam 
3 Db OOF PUSH 1 ; 
1 ¢ OOF DIVL3 #16, REC_NUM, RO : 
30 B440 9F OOF PUSHAB @48(FCB)CRO) : 1712 
FB OOOFD CALLS #3, READ BLOCK : 
1 7A 91 g EMUL C_RUM, #0, -(SP) : 1713 
C4 o1 C MULL p : 
1 CO 0010F ADDL2 1, OLD_RECORD ; 
0 oD We PUSHL  OLB_RECORD : 1714 
DD 0011 PUSHL J ; 
FB 00116 CALLS #2, CLEAN_QUO_CACHE : | 
DD 0011B 11$:  PUSHL : 1716 
1 FB 0011 CALLS #1 REL_QUOTA_LOCK ; 
1¢ ¢5 00122 12$: MULL 8, J.7R : 1723 
52 ¢ 1 ADDL QuofA LIST, RO ; 
Ff AO €8 001 BLBS  -17(RO), 13$ ; 
. = & ot p MOVL UIC, -4¢RO) : 
04 DD 001 PUSHL #4 ; 


0000v CF 83 PB ) a 
30 5 1¢ C8 138 13$ MULLS 

oy a as 
5 Se if C3 128 mUL LS £ 
0284 CA EC nods 12 EF 135 AY ‘ 
«op RBIS | Bile 
» “oe RAGE Bet 
08 FQ A04 s 1 move a 
o2c gh os ) 1 ‘ 148: MOVL J 

2 a 


; Routine Size: 373 bytes, Routine Base: S$CODE$S + O2BF 


+13 VAX=11 Bliss-32 V4.0-742 
DISKSVMSMA STER: CF11X.SRCICHARGEQ. B32: r 


J 
#36,4 GET ~fYOTA. LOCK 


. “<H4¢RO> CouoTA. LISTI, 
6, ’ RO 
t we, + ago (RO? CQUOTA_LISTI, 692 (BASE) 
( Ro) Cavora, List] 
0 


1 
7 4 
15° ={e(Ro}CavoTA.LISTI, 8(R11) 


. 704 ASE) 
Jc R 


Sete Se Se Fe Se Se Se Se Se Se Se Se Ge Se 


6 
1ESeont34s 3:38:03 DEScSUnSMASTERsCHTix-SRCICHARGEG.B32;1°° (OD 


CH 


e 
es 


; f $ 176) ! GLOBAL ROUTINE GET_QUOTA_LOCK (J, MODE) : L_NORM NOVALUE = ‘ 
3; 7 $ 1748 1 fee | 
i - 17464 1! | : 
3 re 106? } } FUNCTIONAL DESCRIPTION: : 
; £6 1429 , This routine acquires the lock associated with a quota cache ‘ 
3; 1708 1} qntey. The lock is raised to PW, and the value block is stored : 
; ree 1708 : } in the quota cache entry. ‘ 
5 £08 1751 1 ! CALLING SEQUENCE: : 
; £9 \f § : } GET_QUOTA_LOCK (J, MODE) : 
3 769 1754 1°! INPUT PARAMETERS: : 
; 770 1755 1! J: index of quota cache entry : 
3 7 17 $ 1! MODE: lock mode to use ‘ 
s 77 17 1! : 
3 a 17 $ 1 ! IMPLICIT INPUTS: : 
3; 774 17 1! CURRENT_VCB: VCB of volume . 
3 oe? 1769 : CURRENT_RVT: RVT of volume set : 
. ae 1766 1 ! OUTPUT PARAMETERS: : 
; 778 1765 1! NONE ; 
; 779 1764 1! 3 
; 780 1765 1 ! IMPLICIT OUTPUTS: : 
3 78 1768 1! NONE ‘ 
: 78 1767 1! ; 
; 78 1768 1 ! ROUTINE VALUE: ; 
: 784 1769 1: NONE : 
; 785 1770 1! | F 
ee 1771 1°! SIDE EFFECTS: 3 
3; Ae ££ Lock taken out; value block written into cache entry. : 
; 4788 1773 1! 3 
: 789 1774 1 ie | ; 
; 790 1775 «(1 F 
; 791 iors BEGIN : 
; 79 177 : 
; 79 1778 LOCAL : 
; 794 1779 CACHE ENTRY : REF BBLOCK, ! quota cache entry pointer ; 
; 795 1780 STATUS, } gyneret status value : 
; 796 HAY LOCK_FLAGS : BBLOCK [4], ! flags to $SENQ call : 
; 797 17 § SAVE _LRU, : seve cache entry LRU index : 
: 798 17 RES. : VECTOR S$. BYTE], ! resource name buffer : 
3; 799 i : RESNAM_D : VECTOR INITIAL (22, RESNAM); : 
; Bot 17 EXTERNAL ROUTINE : 
; 80 17 WAIT_FOR_AST : L_NORM, ! wait for completion AST | ; 
; 80 HA CONTINUE THREAD : L_NORM, ' continue execution thread : 
3; 804 1789 MQPSREL_GUOTA : ADDRESSING_MODE (GENERAL); $ 
3 5 1709 ! unlock cache entry on blocking AST : 
; 80 1736 BIND_COMMON; ‘ 
3 09 1794 ! If the volume is not cluster accessible, we don't have to bother with : 
: 810 1795 ! locks. ‘ 
: 11 Has : . 
: 12 179 3 
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1 If .BBLOCK CCURRENT UCBCUCBSL_DEVCHAR], DEVS$V_ALL] 
1338 OR NOT .BBLOCK PEURRENT UCBEUCBSL DEVCHARDY Sev$v_cLu? 
1 THEN RETURN; 
: 
1 : ' See if we have a pa ID for the cache entry. If so, this is just a 
1 ! conversion. Otherwise, generate the resource name, using the 
; 5 prefix and the volume or volume set name. 
1 
1 $8 CACHE_ENTRY = BBLOCKVECTOR FORLOCK -Cuanent VCBCVCBSL_QUOCACHE) 
| 14 VCASL_QUOLISTJ, .J-1, VCASR_GUOLOCK; ,JCASC_QUOL 
: y LOCK_FLAGS = LCKSM_SYSTEM + LCKSM_VALBLK + LCKSM_NOQUOTA; 
1 if IF .CACHE_ENTRYCVCASL_QUOLKID) NEQ 0 
: 13 THEN LOCK_FLAGSLLCKSV_CONVERT) = 1 
1 18 
181 BEGIN 
1313 CHSMOVE (6, UPLIT BYTE (°F11B$q'), RESNAM(O)); 
181 CHSMOVE (18, 
1820 IF . CURRENT VCBCVCB$W_RVN] EQL 
1821 THEN CURRENT_VCBCVCB$T_VOLCKNAM 
18 § ELSE CURRENT_RVTCRVTST_VLSLCKNAM), 
18 ie 6)); 
1824 (RESNAMC18)) = .CACHE_ENTRYCVCASL_QUOUIC); 
1825 END; 
18 $ 
\3 ; Acquire the lock. 
1829 
1830 SAVE_LRU = .CACHE ENTRYCVCASW_QUOLRUX); 
Pp H+ 1 STATOS = SENQ (EFA = EFN 
P 1 3 LKMODE = .MODE, 
P 18 FLAGS = .LOCK_FLAGS, 
P 1834 LKSB = CACHE ENTRY. VCAS$R_QUOLOCK], 
P 1835 ASTADR = CONTINUE_THREAD, 
P 18 $ ASTPRM = .BASE, 
P + 4 E = RESNAM_ 
1839 IF NOT .STATUS 
1840 THEN 
13) BEGIN 
1 rk CHSFILL (0, VCASC_QUOLENGTH, .CACHE_ENTRY); 
184 IF .LOCK_FLAGSCLCRS$V_CONVERT) 
1844 4 THEN BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’) 
1845 ELSE ERRTEXIT (.STATUSS; 
ip fF 
1 £8 IF .STATUS EQL SS$_NORMAL 
: 3 THEN WAIT_FOR_AST T); 
1851 ! Deal with lock completion and handle eny errors. If the lock comes back 
1 2¢ ' with value not valid, turn off the valid bit but preserve the contents. 
' 37 We will wtill use the record number to avoid a complete search. 


} 
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71 24 42 31 +31 46 00434 P.AAA: .ASCII \F11B$q\ : 


-EXTRN WAIT_FOR_AST, CONTINUE_THREAD 
“EXTRN XOPS$REL_ QUOTA, SYSSENO™ 
-EXTRN BUGS$_XQPERR 


3 1855 ; 
: 1856 ¢ STATUS = .CACHE ENTRYLVCASW QUOSTATUS]; | : 
; 1 If NOT .STATUS ; 
: 1 THEN ; 
3 186 BEGIN | 3 
3 186% IF .STATUS EQL SS$_VALNOTVALID 3 
; ; 6 ives CACHE_ENTRYLVCASV_QUOVALID] = 0 : 
; 1864 4 BEGIN | : 
; 1865 4 CHSFILL (0, VCASC_QUOLENGTH, .CACHE_ENTRY); : 
3 1 4 F .LOCK_FLAGSCLCRS$V_ CONV 3 
; 1 5 THEN BUG_CHECK Creeks FATAL, "Unexpected lock manager error’) : 
; 1868 4 ELSE ERR-EXIT (.STATUSS; ; 
$ 1 : END; 3 
3 1379 END; ; 
Ps | o 
ae tt 1872 | Having acquired the lock, convert it to system owned. | : 
s edd 1874 : 
: 890 P 1875 STATUS = SENQ (EFN = ern, : 
; 891 Pp 1876 LKMODE = MODE : 
3 38 P 187 FLAGS = meta OR LCKSM_SYNCSTS OR LCKSM_CVTSYS OR LCKSM_CONVERT, 3 
: 89 P 1878 LKSB8 = ate “ENTRY — -QU0LOCKI, 3 
: 894 P 1879 BLKAST = XQPSREL : 
; 895 P 1880 ASTPRM = .CACHE LENTRY $ 
; 538 1881 3 : 
; 897 188¢ ¢ IF STATUS | i 
; 898 188 THEN STATUS = .CACHE_ENTRYCVCASW_QUOSTATUS); 3 
; 899 1884 If NOT . 3 
3 54 rH THEN BUG_ CHECK (XQPERR, FATAL, ‘Unexpected lock manager error'); : 
: 90 1889 CACHE_ENTRYLVCA$W_QUOINDEX) = : 
3 bt iss CACHE_ENTRYCLVCA$W_QUOLRUX) = Save LRU; : 
; 905 1890 1 END; ! End of routine GET_QUOTA_LOCK : 
OBFC 00000 -ENTRY GET ou QUOTA_LOCK, Save R2,R3.R4,R5,R6,R7,R8,- ; 1741 3 
28 000000006 00 9 0 MOV sy SENG, R11 3 $ 
E 1c C 0 SUBL ‘S . 3 3 
16 bo 00C PUSHL : 1776 3 
04 ag 0S AE MOVAB i NAM, RESNAR. D+4 : : 
5 94 AA p 1 MOVL BBA SE), : 1798 3 
3a Ss AO 1 TSTB : 3 
01 18 1A BGEQ : 3 
04 1c RET 3 3 
01 3c)6=C AOsé#E8 1D 1$: BLBS 60(RO), 2% : 1799 : 

4 00021 RET ; 
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a 14- Hat $3; 38: HF} DISKSVMSMASTER:CF11X.SRCIJCHARGEQ. B32 79 * 
50 98 AA D 2s: MOVL. =1 4 (BASE) RO : 1808 | 3 
56 04 AC 1¢ ¢ MULL 8 ; 1809 | ; 
26 n\n 8 ADDL : ; 
6 : ¢ F ADDL Hig oH ENTRY : ; 
5 D MOVL a4 CK_FLAG 3: 1811 3 
0% AS D Ist (CACHECERTRYS ; 1813 : 
58 : é A pise2 , LOCK_FLAGS + 1814 : 
08 AE 87 6 2 F 3$ movc3 sf P. AAA RESNAM : 1818 ; 
50 98 AA D 43 MOVL b4 (BASES, + 1820 ; 
OE A & 4 TSTW : ; 
0 4C BNEQ is : ; 
50 0080 ¢9 H 004 MOVAB 128(R0), RO : 1821 ; 
1 0 5 BRB + 1822 i 
50 9C AA 18 s1 55 4s: ADDL #24, <100(BASED . RO ; ; 
OE AE 60 OC 28 O005A 5S: MOVC SNAM+6 + 1823 ; 
1A AE 18 A6 DO O05F MOVL Hee ENTRY), RESNAM+18 + 1824 ; 
59 02 A6 3C 00064 6$: MOVZWL 2(CACHE_ENTRY), SAVE_LRU : 1830 : 
7E 7C 00068 CLROQ + 1838 ; 
7E 04 0006A CLRL ~(3p) : ; 
SA DD 0006C PUSHL BASE : : 
00006 cr OF OOGE PUSHAB CONTINUE_THREAD : F 
E 04 000 CLRL = (SP) ; : 
18 AE 9F 00074 PUSHAB RESNAM_D ; ; 
0140 8F BB 00077 PUSHR #*M<R67RB> : ; 
08 AC DD 00078 PUSHL MODE F : 
1E DD 0007E PUSHL #30 : : 
68 08 FB 90080 CALLS #11, SYSSENQ : ; 
57 50 D0 0008 MOVL RO, STATUS : : 
OE 57 E8 00086 BLBS STATUS. 7$ + 1839 : 
1¢ 00 6E 09 eC 00089 MOVCS #0, (SP), #0, #28, (CACHE_ENTRY) ; 1842 : 
33 58 01 €1 O008F BBC #1, LOCK_FLAGS, 10$ > 1843 : 
FEFF 00093 BUGW > 1844 ; 
9000" 00095 WORD <Bucs XOPERR!4> : ; 
01 57 01 00097 7s: CMPL = STATUS, #1 + 1848 ; 
05 12 0009A BNEQ 28$ : 3 
00006 CF 00 FB 0009C CALLS #0, WAIT_FOR_AST > 1849 : 
57 66 3¢ OO0A1 8S MOVZWL (CACHE -ERTRYS, STATUS > 1856 : 
22 57 E8 OOOAG BLBS STATUS? : 1858 : 
000009FO BF 57 D1 OOOA7 CMPL STATUS: $2864 + 1861 3 
6 12 00 AE BNEQ : : 
0B Ab } BA 80 BI cB2 #1, 11(CACHE_ENTRY) + 1862 ; 
1C 00 6E 00 2c 6 B6 9$ MOVCS #0, (SP), #0, #28, (CACHE_ENTRY) + 1865 ; 
06 58 64 E1 9 B BBC #1, LOCK_FLAGS, 10$ : 1 : 
FEFF QOOC BUGW + 1867 : 
000 c -WORD  <BUG$_XOQPERR!4> : ; 
g 1 C BRB 1$ 3 3 
F 000C6 108: CHMU STATUS > 1868 ; 
4 C RET 5 é 
7E 7€ 000C9 11$: CLRQ -=(SP) F 1881 | : 
000000006 OF CB PUSHAB XQPS$REL_QUOTA : : 
bp ) PUSHL CACHE_ERTRY 3 3 
E 7C 00003 CLRQ.  =(SP)~ : F 
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90 GLOBAL ROUTINE REL_QUOTA_LOCK (J) : L_NORM NOVALUE = | 
90 le 


ooooovon 


NOUS Wn 


: 7 if 1 3 
; 908 1 1 | ; 
3 9 1 1 ; 
:; 910 1 1! | Ps 
4 ae : : FUNCTIONAL DESCRIPTION: | : 
3 318 1 1! This routine releases the lock associated with a quota cache | : 
: 916 1398 1! entry. The value block held in the cache entry is written to : 
; 915 1 1: the lock. : 
3 318 1900 1! 3 
; 91 1901 1 ! CALLING SEQUENCE: $ 
3 218 IDRe 1! REL_QUOTA_LOCK (J) : 
7; 91 1903 1! 3 
; 920 1904 1 ! INPUT PARAMETERS: g 
: 921 1905 1! J: index of quota cache entry : 
3; F ¢ 1906 1! 3 
3; 9 190 1 ! IMPLICIT INPUTS: é 
3; 924 1908 1! NONE : 
; 925 1909 1! 3 
3 ass 1910 1 ! OUTPUT PARAMETERS: é 
: 92 1911 1! NONE ; 
; 928 4 1! 3 
; 929 191 1 ! IMPLICIT OUTPUTS: é 
; 930 1914 1! NONE $ 
: 931 1915 1! 3 
3 836 1916 1 ! ROUTINE VALUE: : 
; 95 1917 1! NONE 3 
; 934 1918 1! 3 
3; 935 1919 1 ! SIDE EFFECTS: ; ; 3 
; a) 1339 ' Lock released, value block written, cache entry marked non valid. : 
; 938 1366 1 l= 3 
; 939 19 1 3 
: 940 1924 BEGIN F 
: 941 1925 | : 
3 ot8 1926 LOCAL 3 
3 oh 1955 CACHE _ENTRY : REF BBLOCK; ! quota cache entry pointer : 
3; 945 9 BIND_ COMMON; : 
; 94 1930 g 
3; 94 1931 3 
3; 948 1936 ' Release the lock. 3 
; 949 193 ! $ 
; 950 193 3 
3; 951 1935 CACHE_ENTRY = BBLOCKVECTOR CBBLOCK t -Cuanent VCBCVCB$L_QUOCACHE) | - 
3 936 1339 VCASL_QUOLISTJ, .J-1, VCASR_GUOLOCK; ,0CAS$C_QUOLENGTH); : 
: 954 1938 2 IF CACHE ENTRYCVCASL_QUOLKID] NEQ 0 | : 
3 9355 193 THEN 3 
3 326 1940 BEGIN 3 
; 95 1941 g 
: 958 Pp 1306 IF NOT $DEQ (LKID = .CACHE_ENTRYCVCASL_QUOLKID) é 
: 998 P 1943 ; VALBLK = CACHE_ENTRYCVCASL_SUORECNUMS ; 
; 961 1945 THEN BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’); ; 
; 368 ba END; : 


st 


Mark the cache entry no Longer valid 


CHSFILL (0, VCASC_QUOLENGTH, 
1 END; 


CACHE _ENTRY); 
! End of routine 
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; Routine Size: 52 bytes, Routine Base: S$CODES + 0538 


xo 
on 
an 


REL_QUOTA_LOCK 


SYSSDEQ 


ree LOCK, Save R2,R3,R4,R5 
or SETS RO 


J. 


 R 
CACHE_ENTRY 
FCCACKE _ENTRY) 


XQPERR!4 


SP), #0, #28, (CACHE_ENTRY) 
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N 6 
CHARGEQ 15-Sep-1984 $3736: 13 VAX=11 Bliss-32 V4.0-742 Page 30 
v04-000 14-Sep-1984 :30:09 DISKSVMSMASTER: CF 11X.SRCICHARGEQ.B32;1 ( d) 
; 971 1954 GLOBAL ROUTINE CLEAN_QUO_CACHE (J, Q_RECORD) : L_NORM NOWALUE = 
; 378 1986 1 144 
: 974 1957 1 | 
; 975 1328 1 ! FUNCTIONAL DESCRIPTION: 
: 976 1959 1: | 
s rr 1960 1! This routine updates the indicated quota record buffer from the 
; 978 1961 1! indicated cache entry, and marks the record dirty and marks the | 
; 979 1306 ' cache entry clean if necessary. 
; 980 1963 1! 
; #981 1964 1! 
3 386 1965 1 ! CALLING SEQUENCE: | 
; 98 1966 1 CLEAN_QUO_CACHE (ARG1, ARG2) 
> «6984 1967 1! 
; 4985 1968 1 ! INPUT PARAMETERS: 
; 986 1969 1! ARG1: index in quota cache 
; 987 1970 1! to not 
; 4988 1971 1! 
; 4989 I3e6 1 ! IMPLICIT INPUTS: 
; 990 975 1! CURRENT_VCB: VCB of volume 
; «991 1974 1! 
; 99 1975 1 ! OUTPUT PARAMETERS: 
; 99 1ore 1! ARG2: address of record buffer 
> 994 1977 1! 
> 995 1978 1 ! IMPLICIT OUTPUTS: 
: 996 1979 1! NONE 
; 997 1980 1! 
; 998 1981 1 ! ROUTINE VALUE: 
; .99°9 1386 1! 1 
; 1000 1983 1! 
: 1001 1984 1 ! SIDE EFFECTS: ie 
: 1002 1985 1! quota cache entry modified, buffer marked dirty 
: 1003 1986 1! 
3 1004 1987 1 !-- 
: 1005 1988 1 
: 1006 1989 2 BEGIN 
: 1007 1990 2 
: 1008 1991 2 MAP 
$ H's 132 2 Q_RECORD : REF BBLOCK; ! address of quota record 
3 1011 1994 2 LOCAL ; 
s 1Ol¢ 1332 CACHE _ENTRY : REF BBLOCK; ' quota cache entry pointer 
> 1014 1997 2 BIND_COMMON; 
3 1015 1998 
3 1016 1999 2 EXTERNAL ROUTINE ; 
3; 1017 2000 MARK _DIRTY : L_NORM; ! mark buffer for write back 
: 1018 sou 
3: 1019 Oe - 
: 1020 200 ! Copy the cache entry to the record buffer. If the cache entry is marked 
; 1098 $p0e dirty, mark it clean and mark the record dirty. 
3 : 
3; 10 20 
: 1024 609 CACHE_ENTRY = BBLOCKVECTOR CBBLOCK C.CURRENT VCBCVCBS$L_QUOCACHE] 
: 1025 $003 VCASL_QUOLIST], .J-1, VCASR_GUOLOCK; ,0CA$C_QUOLENGTH); 
: 1027 010 Q_RECORD(CDQFS$L_UIC] = .CACHE_ENTRYCVCASL_QUOUIC); 


= 2 7 7 
7 | 
CHARGEQ 18-56 -1984 23:56:13 VAKX=11 Bliss-32 v4.0-742 1 CH 
yen 009 12-Sep-1986 $3:38: 8 DISKSVMSMASTER:CF11X.SRCICHARGEQ. B32. 79 i vO 
:1 11 2 CHSMOVE (12, CACHE ENTRYCVCASL_USAGEJ, @_.RECORDCDOFSL_USAGE]); | 
: 1 g 3 IF . CACHE TENTRYEVERSY QUODIRTYI 
: 1030 1 HEN | 
: 1031 14 BEGIN 
31 ; 15 CACHE NTRYLVCASY QuODIRTY = 0; 
3 19 B18 MARK DIRTY (.Q_RETORD | 
; 8 5 018 
: 10 019 END; ! end of routine CLEAN_QUO_CACHE 
007¢ 00000 .ENTRY CLEAN _QUO CACHE, Save R2,R3,R4,R5,R6 : 1954 
50 98 AA 06 00002 MOVL -104(BASES, + 2007 
56 06 AC 1¢ C5 00006 MULL3 #28, J, 6” : 2008 
b SC Ad CO 00008 ADDL2 92(RO). R6 ; 
é 28 CO 0000F ADDL2 #40, CACHE_ENTRY : 
50 08 AC 00 00012 MOVL RECORD, : 2010 
04 AO 18 A6 DO 00016 MOVL 2&(CACHE ~ENTRYD, 4(RO) : 
50 08 Ac 00 90018 MOVL. RECORD? > 2011 
08 a0 OC Ab OC O01F MOVC3 #2, 12¢ LEACHE ENTRY), 862 : 
0c 0B Ab 01 EI 00025 BBC 11(CACHE_ENT : 201 
0B Ab 02 8A 0002A B1CB2 #2! 11 (CACHE ~ “ENTRYD” + 201 
08 AC DD 0002E PUSHL Q RECORD : 2016 
00006 CF 01 FB 00031 CALLS aT MARK_DIRTY : 
04 00036 1$: T : 2019 


; Routine Size: 55 bytes, Routine Base: SCODES + 056C 
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15-seo-1984 $3736: 13 VAX-11 Bliss-32 V4.0-74 


14-Sep-19 
ROUTINE ENTER_QUO_CACHE (J, Q_RECORD, MARK_DIRTY, MARK_USE) : L_NORM NOVALUE = 
'e4 
FUNCTIONAL DESCRIPTION: 
This routine enters the pow quota record into the cache at the 
indicated cache index. If requested, the cache entry is marked dirty. 
CALLING SEQUENCE: 
ENTER_QUO_CACHE (ARG1, ARG2, ARG3, ARG4) 
INPUT PARAMETERS: 
ARG1: index in quota cache 
ARG2: address of record buffer 
ARGS: to mark record dirty 
to not 
ARGG: to set lowest possible LRU 
1 to set current LRU 
2 to leave LRU alone 
IMPLICIT INPUTS: 
CURRENT _VCB: VCB of volume 
QUOTA_RECORD: record number of quota record 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

oe VALUE : 


SIDE EFFECTS: 
quota cache entry modified 


BEGIN 
P 
Q_RECORD : REF BBLOCK; ! address of quota record 
LOCAL 
QUOTA_CACHE : REF BBLOCK, ! address of quota cache 
CACHE _ENTRY : REF BBLOCK; ! quota cache entry pointer 
BIND_ COMMON; 


!' Copy the record data to the cache entry. If requested, mark the cache 
entry dirty. 


URRENT VCBCVCBSL_QUOCACHE); 


QUOTA_CACHE = .C 
= BBLOCKVECTOR CBBLOCK C.QUOTA_CACHE, VCASL_QUOLISTI, 


CACHE ENTRY 


2 
DISKSVMSMASTER:CF11X.SRCICHARGEQ.B32 


ne i 


cures HESeectage 23:56:18 YAEL TABLSSHEE2 Yi O°702 aang. osaht®® 


5 th é -J=1, VCASR_QUOLOCK; ,VCASC_QUOLENGTH]; 
: 109 ? 
: 1 0 2 CACHE_ENTRYCVCASL_QUOUVIC] = .0_RECORDCDOFSL_UIC 
: 1 1 CASMOUE (12, Q@ RECO tpors -USKGE, CACHE_ER nTAYEY VCASL_USAGEJ); 
; 1100 ¢ CACHE_ENTRYLVCA$B_Q AGSJ~= VCASM_QUOVACID; 
: 1101 CACHE ENTRYLVCASW-QUOINDEX] = .J; 
: 11 : 4 3 CACHETENTRYLVCASL-QUORECNUM] = (IF .0 RECOROCDGF $v ACTIVE] 
: 11 085 THEN ,QUOTA_RECORD 
: 1104 0 E 0); 
: 1105 0 IF .MARK_USE 
; 1106 O88 THEN 
: 11 BEGIN 
: 1108 090 CACHE _ENTRYLVCAS$W_QUOLRUX] = .QUOTA_CACHECVCASW QUOL AU; 
: 1109 91 QUOTAS CACHELVCASW-QUOLRUJ = .QUOTA_CACHELVCA$W_QUOLRUJ + 1 
: 1111 09 ELSE IF .MARK_USE EQL 0 
: 1118 094 2 THEN 
111 095 BEGIN 
: 1114 096 CACHE _ENTRYCVCAS$W_QUOLRUX] = .QUOTA_CACHECVCASW_QUOLRUJ - 1°15; 
> 1115 09 END; 
; 1318 098 
$111 099 2 IF .MARK_DIRTY 
3 a 199 THEN CACRE_ENTRYCVCASV_QUODIRTY) = 
3; 1120 102 END; ! end of routine ENTER_QUO_CACHE 
| 
OOFC 00000 ENTER_QUO_CACHE: 
.QORD Save R2,R3,R4,R5,R6,R7 : 2020 
50 98 AA DO 00002 MOVL -104(BASE), RO > 2075 
57 5c 6AO OD 90006 MOV 9g(RO) QUOTA_CACHE ; 
50 04 AC I¢ ¢ OO0A MULL3 #28, J. RO : 2077 
56 8 A04 : 0000F MOVAB  40(RO)CQUOTA_CACHE], CACHE_ENTRY : 
50 8 AC DO 00014 MOVL Q RECORD R + 2080 
18 Ab 04 AO 00 00018 MOVL  4TRO), 24(CACHE_ENTRY) ; 
50 AC b0 0001D MOVL Q RECORD RO > 2081 
OC Ab 08 Ad C g 00021 MOVC3 #T2, 8(RO), T2CCACHE ENTRY) : 
0B Ab 1 90 00 7 MOVE #1, 11(CACHE_E > 208 
66 04 aC BO 00028 MOVW J, (CACHE_E > 208 
97 08 Bc E9 09 BLBC a0_RECORD> : 3084 | 
0 0284 CA DO MOVL 692(BASE). RO > 2085 | 
“ 11 000 BRB 2$ ; 
D4 A 1$: CLRL —_ RO > 2084 
08 6 18 00 0 FO 0008 26: INSV RO, #0, #24, B(CACHE ENTRY? | 
OA 10 AC £9 0004 BLBC MARK_USE : 2087 
02 Ab 0 A? BO 00046 MOV (QUOTA_ CACHE), 2(CACHE_ENTRY) : 2090 
A? 86 8 INCW (QUOTA~CACHE ) > 2091 
OD 11 0004 BRB : 2087 
10 aC sf 3$ Ist MARK_USE > 2093 
02 Ab 02 a7 8090 gf A ADDW3 #32768 rg (UgTAN CACHE), 2(CACHE_ENTRY) > 20% 
04 C ac £9 9 D 4$: BLBC : 2099 | 
0B AG 02 88 00061 BISB2 me DHA “ENTRY : 100 | 
| 


04 00065 5$: RET 
; Routine Size: 102 bytes, Routine Base: S$CODES + 05A3 


; 1121 103 (1 
3 43 ¢ 104 1 END 
3; 11 105 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 1545 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
3 ssecsess SyEbel§ scoccere Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28: CSYSLIBILIB.L32;1 18619 82 0 1000 00:02.0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CHARGEQ/OBJ=0BJ$:CHARGEQ MSRC$: CHARGEQ/UPDATE=(ENHS$: CHARGEQ) 
; Size: 1539 code + 6 data bytes 
~¥ 01:30: , 


:R ime 

3 lhe Time: 05: :2 
3; Lines/CPU Min: 
; Lexemes/CPU-Min: 61 9 

: "Y Used: 310 pages 
; Compilation Complete 
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